Private Sub cmdOnError_Click(ByVal sender As System.Object, _
  ByVal e As System.EventArgs) Handles cmdOnError.Click

Dim lngFileSize As Long
Dim intLoopCtr As Integer
Dim intBufferCount As Integer
Dim strInByte As String * 256

On Error GoTo FileCopyError
'
'BODY OF ROUTINE GOES HERE
'
Exit Sub
'
FileCopyError:
'
'ERROR HANDLING ROUTINE GOES HERE (use code from Listing 13.2)

'
End Sub
